Developer CD Series 1997 April: Mac OS SDK/Dev.CD Apr 97 SDK1.toast/Development Kits (Disc 1)/AppleScript/Development Tools/Interfaces/AppleScript 1.0 Interfaces/PInterfaces/AERegistry.p

Text File | 1993-04-08 | 11.5 KB | 505 lines | [TEXT/MPS ]

{
Created: 2:40 PM Thu, 18 Feb 1993
    AERegistry.p
    Pascal Interface to the Apple Event Registry

        Copyright Apple Computer, Inc.    1993
        All rights reserved
}


{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}

{$IFC NOT UsingIncludes}
    UNIT AERegistry;
    INTERFACE
{$ENDC}

{$IFC UNDEFINED UsingAERegistry}
{$SETC UsingAERegistry := 1}

{$I+}
{$SETC AERegistryIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$IFC UNDEFINED UsingAppleEvents}
{$I $$Shell(PInterfaces)AppleEvents.p}
{$ENDC}
{$SETC UsingIncludes := AERegistryIncludes}

CONST
    cAEList = 'list';
    cApplication = 'capp';
    cArc = 'carc';
    cBoolean = 'bool';
    cCell = 'ccel';
    cChar = 'cha ';
    cColorTable = 'clrt';
    cColumn = 'ccol';
    cDocument = 'docu';
    cDrawingArea = 'cdrw';
    cEnumeration = 'enum';
    cFile = 'file';
    cFixed = 'fixd';
    cFixedPoint = 'fpnt';
    cFixedRectangle = 'frct';
    cGraphicLine = 'glin';
    cGraphicObject = 'cgob';
    cGraphicShape = 'cgsh';
    cGraphicText = 'cgtx';
    cGroupedGraphic = 'cpic';
    cInsertionLoc = 'insl';
    cInsertionPoint = 'cins';
    cIntlText = 'itxt';
    cIntlWritingCode = 'intl';
    cItem = 'citm';
    cLine = 'clin';
    cLongDateTime = 'ldt ';
    cLongFixed = 'lfxd';
    cLongFixedPoint = 'lfpt';
    cLongFixedRectangle = 'lfrc';
    cLongInteger = 'long';
    cLongPoint = 'lpnt';
    cLongRectangle = 'lrct';
    cMachineLoc = 'mLoc';
    cMenu = 'cmnu';
    cMenuItem = 'cmen';
    cObject = 'cobj';
    cObjectSpecifier = 'obj ';
    cOpenableObject = 'coob';
    cOval = 'covl';
    cParagraph = 'cpar';
    cPICT = 'PICT';
    cPixel = 'cpxl';
    cPixelMap = 'cpix';
    cPolygon = 'cpgn';
    cProperty = 'prop';
    cQDPoint = 'QDpt';
    cQDRectangle = 'qdrt';
    cRectangle = 'crec';
    cRGBColor = 'cRGB';
    cRotation = 'trot';
    cRoundedRectangle = 'crrc';
    cRow = 'crow';
    cSelection = 'csel';
    cShortInteger = 'shor';
    cTable = 'ctbl';
    cText = 'ctxt';
    cTextFlow = 'cflo';
    cTextStyles = 'tsty';
    cType = 'type';
    cVersion = 'vers';
    cWindow = 'cwin';
    cWord = 'cwor';
    enumArrows = 'arro';
    enumJustification = 'just';
    enumKeyForm = 'kfrm';
    enumPosition = 'posi';
    enumProtection = 'prtn';
    enumQuality = 'qual';
    enumSaveOptions = 'savo';
    enumStyle = 'styl';
    enumTransferMode = 'tran';
    errAEBadKeyForm = -10002;
    errAECantHandleClass = -10010;
    errAECantSupplyType = -10009;
    errAECantUndo = -10015;
    errAEEventFailed = -10000;
    errAEIndexTooLarge = -10007;
    errAEInTransaction = -10011;
    errAELocalOnly = -10016;
    errAENoSuchTransaction = -10012;
    errAENotAnElement = -10008;
    errAENotASingleObject = -10014;
    errAENotModifiable = -10003;
    errAENoUserSelection = -10013;
    errAEPrivilegeError = -10004;
    errAEReadDenied = -10005;
    errAETypeError = -10001;
    errAEWriteDenied = -10006;
    formUniqueID = 'ID  ';
    kAEAbout = 'abou';
    kAEAfter = 'afte';
    kAEAliasSelection = 'sali';
    kAEAllCaps = 'alcp';
    kAEArrowAtEnd = 'aren';
    kAEArrowAtStart = 'arst';
    kAEArrowBothEnds = 'arbo';
    kAEAsk = 'ask ';
    kAEBefore = 'befo';
    kAEBeginning = 'bgng';
    kAEBeginsWith = 'bgwt';
    kAEBeginTransaction = 'begi';
    kAEBold = 'bold';
    kAECaseSensEquals = 'cseq';
    kAECentered = 'cent';
    kAEChangeView = 'view';
    kAEClone = 'clon';
    kAEClose = 'clos';
    kAECondensed = 'cond';
    kAEContains = 'cont';
    kAECopy = 'copy';
    kAECoreSuite = 'core';
    kAECountElements = 'cnte';
    kAECreateElement = 'crel';
    kAECreatePublisher = 'cpub';
    kAECut = 'cut ';
    kAEDelete = 'delo';
    kAEDoObjectsExist = 'doex';
    kAEDoScript = 'dosc';
    kAEDrag = 'drag';
    kAEDuplicateSelection = 'sdup';
    kAEEditGraphic = 'edit';
    kAEEmptyTrash = 'empt';
    kAEEnd = 'end ';
    kAEEndsWith = 'ends';
    kAEEndTransaction = 'endt';
    kAEEquals = '=   ';
    kAEExpanded = 'pexp';
    kAEFast = 'fast';
    kAEFinderEvents = 'FNDR';
    kAEFormulaProtect = 'fpro';
    kAEFullyJustified = 'full';
    kAEGetClassInfo = 'qobj';
    kAEGetData = 'getd';
    kAEGetDataSize = 'dsiz';
    kAEGetEventInfo = 'gtei';
    kAEGetInfoSelection = 'sinf';
    kAEGetPrivilegeSelection = 'sprv';
    kAEGetSuiteInfo = 'gtsi';
    kAEGreaterThan = '>   ';
    kAEGreaterThanEquals = '>=  ';
    kAEGrow = 'grow';
    kAEHidden = 'hidn';
    kAEHiQuality = 'hiqu';
    kAEImageGraphic = 'imgr';
    kAEInfo = 11;
    kAEIsUniform = 'isun';
    kAEItalic = 'ital';
    kAELeftJustified = 'left';
    kAELessThan = '<   ';
    kAELessThanEquals = '<=  ';
    kAELowercase = 'lowc';
    kAEMain = 0;
    kAEMakeObjectsVisible = 'mvis';
    kAEMiscStandards = 'misc';
    kAEModifiable = 'modf';
    kAEMove = 'move';
    kAENo = 'no  ';
    kAENoArrow = 'arno';
    kAENonmodifiable = 'nmod';
    kAEOpen = 'odoc';
    kAEOpenSelection = 'sope';
    kAEOutline = 'outl';
    kAEPageSetup = 'pgsu';
    kAEPaste = 'past';
    kAEPlain = 'plan';
    kAEPrint = 'pdoc';
    kAEPrintSelection = 'spri';
    kAEPrintWindow = 'pwin';
    kAEPutAwaySelection = 'sput';
    kAEQDAddOver = 'addo';
    kAEQDAddPin = 'addp';
    kAEQDAdMax = 'admx';
    kAEQDAdMin = 'admn';
    kAEQDBic = 'bic ';
    kAEQDBlend = 'blnd';
    kAEQDCopy = 'cpy ';
    kAEQDNotBic = 'nbic';
    kAEQDNotCopy = 'ncpy';
    kAEQDNotOr = 'ntor';
    kAEQDNotXor = 'nxor';
    kAEQDOr = 'or  ';
    kAEQDSubOver = 'subo';
    kAEQDSubPin = 'subp';
    kAEQDSupplementalSuite = 'qdsp';
    kAEQDXor = 'xor ';
    kAEQuickdrawSuite = 'qdrw';
    kAERedo = 'redo';
    kAERegular = 'regl';
    kAEReplace = 'rplc';
    kAERequiredSuite = 'reqd';
    kAERestart = 'rest';
    kAERevealSelection = 'srev';
    kAERevert = 'rvrt';
    kAERightJustified = 'rght';
    kAESave = 'save';
    kAESelect = 'slct';
    kAESetData = 'setd';
    kAESetPosition = 'posn';
    kAEShadow = 'shad';
    kAESharing = 13;
    kAEShowClipboard = 'shcl';
    kAEShutDown = 'shut';
    kAESleep = 'slep';
    kAESmallCaps = 'smcp';
    kAESpecialClassProperties = 'c@#!';
    kAEStrikethrough = 'strk';
    kAESubscript = 'sbsc';
    kAESuperscript = 'spsc';
    kAETableSuite = 'tbls';
    kAETextSuite = 'TEXT';
    kAETransactionTerminated = 'ttrm';
    kAEUnderline = 'undl';
    kAEUndo = 'undo';
    kAEWholeWordEquals = 'wweq';
    kAEYes = 'yes ';
    kAEZoom = 'zoom';
    kByCommentView = 6;
    kByDateView = 3;
    kByIconView = 1;
    kByKindView = 5;
    kByLabelView = 7;
    kByNameView = 2;
    kBySizeView = 4;
    kBySmallIcon = 0;
    kByVersionView = 8;
    keyAEAngle = 'kang';
    keyAEArcAngle = 'parc';
    keyAEBaseAddr = 'badd';
    keyAEBestType = 'pbst';
    keyAEBgndColor = 'kbcl';
    keyAEBgndPattern = 'kbpt';
    keyAEBounds = 'pbnd';
    keyAECellList = 'kclt';
    keyAEClassID = 'clID';
    keyAEColor = 'colr';
    keyAEColorTable = 'cltb';
    keyAECurveHeight = 'kchd';
    keyAECurveWidth = 'kcwd';
    keyAEDashStyle = 'pdst';
    keyAEData = 'data';
    keyAEDefaultType = 'deft';
    keyAEDefinitionRect = 'pdrt';
    keyAEDescType = 'dstp';
    keyAEDestination = 'dest';
    keyAEDoAntiAlias = 'anta';
    keyAEDoDithered = 'gdit';
    keyAEDoRotate = 'kdrt';
    keyAEDoScale = 'ksca';
    keyAEDoTranslate = 'ktra';
    keyAEEditionFileLoc = 'eloc';
    keyAEElements = 'elms';
    keyAEEndPoint = 'pend';
    keyAEEventClass = 'evcl';
    keyAEEventID = 'evti';
    keyAEFile = 'kfil';
    keyAEFileType = 'fltp';
    keyAEFillColor = 'flcl';
    keyAEFillPattern = 'flpt';
    keyAEFlipHorizontal = 'kfho';
    keyAEFlipVertical = 'kfvt';
    keyAEFont = 'font';
    keyAEFormula = 'pfor';
    keyAEGraphicObjects = 'gobs';
    keyAEID = 'ID  ';
    keyAEImageQuality = 'gqua';
    keyAEInsertHere = 'insh';
    keyAEKeyForms = 'keyf';
    keyAEKeyword = 'kywd';
    keyAELevel = 'levl';
    keyAELineArrow = 'arro';
    keyAEName = 'pnam';
    keyAENewElementLoc = 'pnel';
    keyAEObject = 'kobj';
    keyAEObjectClass = 'kocl';
    keyAEOffStyles = 'ofst';
    keyAEOnStyles = 'onst';
    keyAEParameters = 'prms';
    keyAEParamFlags = 'pmfg';
    keyAEPenColor = 'ppcl';
    keyAEPenPattern = 'pppa';
    keyAEPenWidth = 'ppwd';
    keyAEPixelDepth = 'pdpt';
    keyAEPixMapMinus = 'kpmm';
    keyAEPMTable = 'kpmt';
    keyAEPointList = 'ptlt';
    keyAEPointSize = 'ptsz';
    keyAEPosition = 'kpos';
    keyAEPropData = 'prdt';
    keyAEProperties = 'qpro';
    keyAEProperty = 'kprp';
    keyAEPropFlags = 'prfg';
    keyAEPropID = 'prop';
    keyAEProtection = 'ppro';
    keyAERenderAs = 'kren';
    keyAERequestedType = 'rtyp';
    keyAEResult = '----';
    keyAEResultInfo = 'rsin';
    keyAERotation = 'prot';
    keyAERotPoint = 'krtp';
    keyAERowList = 'krls';
    keyAESaveOptions = 'savo';
    keyAEScale = 'pscl';
    keyAEScriptTag = 'psct';
    keyAEShowWhere = 'show';
    keyAEStartAngle = 'pang';
    keyAEStartPoint = 'pstp';
    keyAEStyles = 'ksty';
    keyAESuiteID = 'suit';
    keyAEText = 'ktxt';
    keyAETextColor = 'ptxc';
    keyAETextFont = 'ptxf';
    keyAETextPointSize = 'ptps';
    keyAETextStyles = 'txst';
    keyAETheText = 'thtx';
    keyAETransferMode = 'pptm';
    keyAETranslation = 'ptrs';
    keyAETryAsStructGraf = 'toog';
    keyAEUniformStyles = 'ustl';
    keyAEUpdateOn = 'pupd';
    keyAEUserTerm = 'utrm';
    keyAEWindow = 'wndw';
    keyAEWritingCode = 'wrcd';
    keyMiscellaneous = 'fmsc';
    keySelection = 'fsel';
    keyWindow = 'kwnd';
    pArcAngle = 'parc';
    pBackgroundColor = 'pbcl';
    pBackgroundPattern = 'pbpt';
    pBestType = 'pbst';
    pBounds = 'pbnd';
    pClass = 'pcls';
    pClipboard = 'pcli';
    pColor = 'colr';
    pColorTable = 'cltb';
    pContents = 'pcnt';
    pCornerCurveHeight = 'pchd';
    pCornerCurveWidth = 'pcwd';
    pDashStyle = 'pdst';
    pDefaultType = 'deft';
    pDefinitionRect = 'pdrt';
    pEnabled = 'enbl';
    pEndPoint = 'pend';
    pFillColor = 'flcl';
    pFillPattern = 'flpt';
    pFont = 'font';
    pFormula = 'pfor';
    pGraphicObjects = 'gobs';
    pHasCloseBox = 'hclb';
    pHasTitleBar = 'ptit';
    pID = 'ID  ';
    pIndex = 'pidx';
    pInsertionLoc = 'pins';
    pIsFloating = 'isfl';
    pIsFrontProcess = 'pisf';
    pIsModal = 'pmod';
    pIsModified = 'imod';
    pIsResizable = 'prsz';
    pIsStationeryPad = 'pspd';
    pIsZoomable = 'iszm';
    pIsZoomed = 'pzum';
    pItemNumber = 'itmn';
    pJustification = 'pjst';
    pLineArrow = 'arro';
    pMenuID = 'mnid';
    pName = 'pnam';
    pNewElementLoc = 'pnel';
    pPenColor = 'ppcl';
    pPenPattern = 'pppa';
    pPenWidth = 'ppwd';
    pPixelDepth = 'pdpt';
    pPointList = 'ptlt';
    pPointSize = 'ptsz';
    pProtection = 'ppro';
    pRotation = 'prot';
    pScale = 'pscl';
    pScript = 'scpt';
    pScriptTag = 'psct';
    pSelected = 'selc';
    pSelection = 'sele';
    pStartAngle = 'pang';
    pStartPoint = 'pstp';
    pTextColor = 'ptxc';
    pTextFont = 'ptxf';
    pTextItemDelimiters = 'txdl';
    pTextPointSize = 'ptps';
    pTextStyles = 'txst';
    pTransferMode = 'pptm';
    pTranslation = 'ptrs';
    pUniformStyles = 'ustl';
    pUpdateOn = 'pupd';
    pUserSelection = 'pusl';
    pVersion = 'vers';
    pVisible = 'pvis';
    typeAEText = 'tTXT';
    typeArc = 'carc';
    typeBest = 'best';
    typeCell = 'ccel';
    typeClassInfo = 'gcli';
    typeColorTable = 'clrt';
    typeColumn = 'ccol';
    typeDashStyle = 'tdas';
    typeData = 'tdta';
    typeDrawingArea = 'cdrw';
    typeElemInfo = 'elin';
    typeEnumeration = 'enum';
    typeEPS = 'EPS ';
    typeEventInfo = 'evin';
    typeFinderWindow = 'fwin';
    typeFixed = 'fixd';
    typeFixedPoint = 'fpnt';
    typeFixedRectangle = 'frct';
    typeGraphicLine = 'glin';
    typeGraphicText = 'cgtx';
    typeGroupedGraphic = 'cpic';
    typeInsertionLoc = 'insl';
    typeIntlText = 'itxt';
    typeIntlWritingCode = 'intl';
    typeLongDateTime = 'ldt ';
    typeLongFixed = 'lfxd';
    typeLongFixedPoint = 'lfpt';
    typeLongFixedRectangle = 'lfrc';
    typeLongPoint = 'lpnt';
    typeLongRectangle = 'lrct';
    typeMachineLoc = 'mLoc';
    typeOval = 'covl';
    typeParamInfo = 'pmin';
    typePict = 'PICT';
    typePixelMap = 'cpix';
    typePixMapMinus = 'tpmm';
    typePolygon = 'cpgn';
    typePropInfo = 'pinf';
    typeQDPoint = 'QDpt';
    typeQDRectangle = 'qdrt';
    typeRectangle = 'crec';
    typeRGB16 = 'tr16';
    typeRGB96 = 'tr96';
    typeRGBColor = 'cRGB';
    typeRotation = 'trot';
    typeRoundedRectangle = 'crrc';
    typeRow = 'crow';
    typeScrapStyles = 'styl';
    typeScript = 'scpt';
    typeStyledText = 'STXT';
    typeSuiteInfo = 'suin';
    typeTable = 'ctbl';
    typeTextStyles = 'tsty';
    typeTIFF = 'TIFF';
    typeVersion = 'vers';
    zoomIn = 7;
    zoomOut = 8;

TYPE
WritingCode = RECORD
    theScriptCode    : ScriptCode;
    theLangCode        : LangCode;
    END;

IntlText    = RECORD
    theScriptCode    : ScriptCode;
    theLangCode        : LangCode;
    theText            : PACKED ARRAY [0..0] OF CHAR;
    { variable length data }
    END;

{$ENDC}    { UsingAERegistry }

{$IFC NOT UsingIncludes}
    END.
{$ENDC}